Disc to the Future 2/Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin/MAC/THINKC/5/MACVOGL-/FHTEXT.C

Text File | 1992-07-19 | 4KB | 452 lines

#include <stdio.h>

/*
 * hsetpath_
 */
void
hsetpath_(fpath, len1, len2)
    char    *fpath;
    int    *len1;
    int    len2;
{
    char    buf[BUFSIZ];

    strncpy(buf, fpath, len2);
    buf[*len1] = 0;

    hsetpath(buf);
}

/*
 * hsetpa_
 */
void
hsetpa_(fpath, len1, len2)
    char    *fpath;
    int    *len1;
    int    len2;
{
    char    buf[BUFSIZ];

    strncpy(buf, fpath, len2);
    buf[*len1] = 0;

    hsetpath(buf);
}

/*
 * hfont_
 */
void
hfont_(fontfile, len1, len2)
    char    *fontfile;
    int    *len1;
    int    len2;
{
    char    buf[BUFSIZ];

    strncpy(buf, fontfile, len2);
    buf[*len1] = 0;

    hfont(buf);
}

/*
 * htextsize_
 */
void
htextsize_(width, height)
    double    *width, *height;
{
    htextsize(*width, *height);
}

/*
 * htexts_
 */
void
htexts_(width, height)
    double    *width, *height;
{
    htextsize(*width, *height);
}

/*
 * hboxtext_
 */
hboxtext_(x, y, l, h, s, length, len)
    double    *x, *y, *l, *h;
    char    *s;
    int    *length;
    int    len;
{
    char        buf[BUFSIZ];
    register char   *p;

    strncpy(buf, s, len);
    buf[*length] = 0;

    hboxtext(*x, *y, *l, *h, buf);
}

/*
 * hboxte_    (same as hboxtext_)
 */
hboxte_(x, y, l, h, s, length, len)
    double    *x, *y, *l, *h;
    char    *s;
    int    *length;
    int    len;
{
    char        buf[BUFSIZ];
    register char   *p;

    strncpy(buf, s, len);
    buf[*length] = 0;

    hboxtext(*x, *y, *l, *h, buf);
}

/*
 * hboxfit_
 */
hboxfit_(l, h, nchars)
    double    *l, *h;
    int    *nchars;
{
    hboxfit(*l, *h, *nchars);
}

/*
 * hboxfi_
 */
hboxfi_(l, h, nchars)
    double    *l, *h;
    int    *nchars;
{
    hboxfit(*l, *h, *nchars);
}

/*
 * htextang_
 */
void
htextang_(ang)
    double    *ang;
{
    htextang(*ang);
}

/*
 * htexta_
 */
void
htexta_(ang)
    double    *ang;
{
    htextang(*ang);
}

/*
 * hdrawchar_
 */
hdrawchar_(s)
    char    *s;
{
    hdrawchar(*s);
}

/*
 * hdrawc_
 */
hdrawc_(s)
    char    *s;
{
    hdrawchar(*s);
}

/*
 * hcharstr_
 */
hcharstr_(s, length, len)
    char    *s;
    int    *length;
    int    len;
{
        char            buf[BUFSIZ];
    register char   *p;

    strncpy(buf, s, len);
    buf[*length] = 0;
    hcharstr(buf);
}

/*
 * hchars_
 */
hchars_(s, length, len)
    char    *s;
    int    *length;
    int    len;
{
        char            buf[BUFSIZ];
    register char   *p;

    strncpy(buf, s, len);
    buf[*length] = 0;
    hcharstr(buf);
}

/*
 * hgetfontheight_
 */
double
hgetfontheight_()
{
    return(hgetfontheight());
}

/*
 * hgetfh_
 */
double
hgetfh_()
{
    return(hgetfontheight());
}

/*
 * hgetfontwidth_
 */
double
hgetfontwidth_()
{
    return(hgetfontwidth());
}

/*
 * hgetfw_
 */
double
hgetfw_()
{
    return(hgetfontwidth());
}

/*
 * hgetdecender_
 */
double
hgetdecender_()
{
    return(hgetdecender());
}

/*
 * hgetde_
 */
double
hgetde_()
{
    return(hgetdecender());
}

/*
 * hgetascender_
 */
double
hgetascender_()
{
    return(hgetascender());
}

/*
 * hgetas_
 */
double
hgetas_()
{
    return(hgetascender());
}

/*
 * hgetfontsize_
 */
void
hgetfontsize_(cw, ch)
    double     *cw, *ch;
{
    hgetfontsize(cw, ch);
}

/*
 * hgetfs_
 */
void
hgetfs_(cw, ch)
    double     *cw, *ch;
{
    hgetfontsize(cw, ch);
}

/*
 * hgetcharsize_
 */
void
hgetcharsize_(c, cw, ch)
    char    *c;
    double     *cw, *ch;
{
    hgetcharsize(*c, cw, ch);
}

/*
 * hgetch_
 */
void
hgetch_(c, cw, ch)
    char    *c;
    double     *cw, *ch;
{
    hgetcharsize(*c, cw, ch);
}

/*
 * hfixedwidth
 */
void
hfixedwidth_(i)
    int    *i;
{
    hfixedwidth(*i);
}

/*
 * hfixed_
 */
void
hfixed_(i)
    int    *i;
{
    hfixedwidth(*i);
}

/*
 * hcentertext
 */
void
hcentertext_(i)
    int    *i;
{
    hcentertext(*i);
}

/*
 * hcente_
 */
void
hcente_(i)
    int    *i;
{
    hcentertext(*i);
}

/*
 * hrightjustify_
 */
void
hrightjustify_(i)
    int    *i;
{
    hrightjustify(*i);
}

/*
 * hright_
 */
void
hright_(i)
    int    *i;
{
    hrightjustify(*i);
}

/*
 * hleftjustify_
 */
void
hleftjustify_(i)
    int    *i;
{
    hleftjustify(*i);
}

/*
 * hleftj_
 */
void
hleftj_(i)
    int    *i;
{
    hleftjustify(*i);
}

/*
 * hnumchars_
 */
int
hnumchars_()
{
    return(hnumchars());
}

/*
 * hnumch_
 */
int
hnumch_()
{
    return(hnumchars());
}

/*
 * hstrlength_
 */
double
hstrlength_(str, len0, len1)
    char    *str;
    int    *len0;
    int    len1;
{
        char            buf[BUFSIZ];
    register char   *p;

    strncpy(buf, str, len1);
    buf[*len0] = 0;

    return(hstrlength(buf));
}

/*
 * hstrle_
 */
double
hstrle_(str, len)
    char    *str;
    int    len;
{
        char            buf[BUFSIZ];
    register char   *p;

    strncpy(buf, str, len);
    buf[len] = 0;

    for (p = &buf[len - 1]; *p == ' '; p--)
        ;

    *++p = 0;

    return(hstrlength(buf));
}